home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u288.dms / in.adf / Include / Libraries / MathFFP.i < prev    next >
Encoding:
Text File  |  1990-08-27  |  1.2 KB  |  65 lines
  1. {
  2.     MathFFP.i for PCQ Pascal
  3.  
  4.     general floating point declarations.  Note that PCQ Pascal
  5.     floating point math is handled entirely independent of any
  6.     of these declarations.  It uses a different library pointer,
  7.     for example, and all the calls are handled in-line rather
  8.     than by calling these routines.  This is the library that is
  9.     used, however.
  10. }
  11.  
  12. Var
  13.     MathBase    : Address;
  14.  
  15. Const
  16.  
  17.     PI        = 3.141592653589793;
  18.     TWO_PI    = 2.0 * PI;
  19.     PI2        = PI / 2.0;
  20.     PI4        = PI / 4.0;
  21.     E        = 2.718281828459045;
  22.     LOG10    = 2.302585092994046;
  23.  
  24.     FPTEN    = 10.0;
  25.     FPONE    = 1.0;
  26.     FPHALF    = 0.5;
  27.     FPZERO    = 0.0;
  28.  
  29. Function SPAbs(fnum : Real) : Real;
  30.     External;
  31.  
  32. Function SPAdd(fnum1, fnum2 : Real) : Real;
  33.     External;
  34.  
  35. Function SPCeil(fnum : Real) : Real;
  36.     External;
  37.  
  38. Function SPCmp(fnum1, fnum2 : Real) : Short;
  39.     External;
  40.  
  41. Function SPDiv(fnum1, fnum2 : Real) : Real;
  42.     External;
  43.  
  44. Function SPFix(fnum : Real) : Integer;
  45.     External;
  46.  
  47. Function SPFloor(fnum : Real) : Real;
  48.     External;
  49.  
  50. Function SPFlt(inum : Integer) : Real;
  51.     External;
  52.  
  53. Function SPMul(fnum1, fnum2 : Real) : Real;
  54.     External;
  55.  
  56. Function SPNeg(fnum : Real) : Real;
  57.     External;
  58.  
  59. Function SPSub(fnum1, fnum2 : Real) : Real;
  60.     External;
  61.  
  62. Function SPTst(fnum : Real) : Short;
  63.     External;
  64.  
  65.